home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 7 / CorelDraw 7 cd-key DR7-9868904M35.iso / draw / scripts / presets6 / spectrl3.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  2.2 KB  |  63 lines
  1. REM Plaque with spectral fill to back of embossed element.
  2. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  3.  
  4. WITHOBJECT "CorelDraw.Automation.7"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .MoveObject -3301, 0
  10.     .RecorderSelectObjectByIndex TRUE, 1
  11.     .MoveObject 0, 3301
  12.     .RecorderSelectObjectByIndex TRUE, 1
  13.     .ApplyUniformFillColor 2, 0, 0, 0, 0
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .DuplicateObject 0, 0
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .MoveObject 3301, 0
  18.     .RecorderSelectObjectByIndex TRUE, 2
  19.     .MoveObject 0, -3301
  20.     .RecorderSelectObjectByIndex TRUE, 2
  21.     .MoveObject 3301, 0
  22.     .RecorderSelectObjectByIndex TRUE, 2
  23.     .MoveObject 0, -3301
  24.     .RecorderSelectObjectByIndex TRUE, 2
  25.     .ApplyUniformFillColor 2, 0, 0, 0, 50
  26.     .RecorderSelectObjectByIndex TRUE, 2
  27.     .DuplicateObject 0, 0
  28.     .RecorderSelectObjectByIndex TRUE, 3
  29.     .MoveObject -3301, 0
  30.     .RecorderSelectObjectByIndex TRUE, 3
  31.     .MoveObject 0, 3301
  32.     .RecorderSelectObjectByIndex TRUE, 3
  33.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
  34.     .SetFountainFillColor 0, 2, 0, 100, 100, 0
  35.     .SetFountainFillColor 100, 2, 0, 100, 100, 0
  36.     .RecorderObjectScaleInfo 51942992, 17297388, 330197, -330197
  37.     .CreateRectangle 0, 0, 0, 0, 0
  38.     .RecorderSelectObjectByIndex TRUE, 4
  39.     .ApplyOutline 762, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  40.     .SetOutlineColor 2, 100, 100, 0, 0
  41.     .RecorderSelectObjectByIndex TRUE, 4
  42.     .ApplyOutline 7620, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  43.     .SetOutlineColor 2, 100, 100, 0, 0
  44.     .RecorderSelectObjectByIndex TRUE, 4
  45.     .ApplyFountainFill 2, 0, 0, 900, 256, 0, 1, 50
  46.     .SetFountainFillColor 0, 2, 0, 100, 100, 0
  47.     .SetFountainFillColor 100, 2, 0, 100, 100, 0
  48.     .RecorderSelectObjectByIndex TRUE, 4
  49.     .OrderToBack 
  50.     .RecorderSelectObjectByIndex TRUE, 4
  51.     .DuplicateObject 0, 0
  52.     .RecorderSelectObjectByIndex TRUE, 5
  53.     .ApplyNoFill 
  54.     .RecorderSelectObjectByIndex TRUE, 5
  55.     .ApplyOutline 2540, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  56.     .SetOutlineColor 2, 0, 0, 0, 0
  57.     .RecorderSelectPreselectedObjects TRUE
  58.     .RecorderSelectObjectsByIndex FALSE, 5, 4, 3, 2, -1
  59.     .Group 
  60.     .ResumePainting 
  61.     .EndOfRecording 
  62. END WITHOBJECT
  63.